 PutImage ()   ( Graph)
 --------------------------------------
    .

 :
 Procedure PutImage(X, Y : Integer; var BitMap; BitBlt : Word);

 :
Real, Protected

 :
   (X, Y) -      
. BitMap -  ,    ,
    ,     . BitBlt
,       
  .

    . :

PutImage (X, Y, BitMap, NormalPut)    ,
  BitMap   (X, Y)    MOV 
   .

PutImage (X, Y, BitMap, XORPut)    ,  
BitMap   (X, Y)    XOR    
.        
  .

PutImage (X, Y, , NotPut)    BitMap    
 ,   BitMap   (X, Y)  
 MOV     .  , 
       .

 :
    .

  :
 GetImage
 ImageSize

  BitBlt

 :
 Getimage.PAS
